home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / biblio / bibtex / contrib / germbib / bst / gerapali.bst < prev    next >
Text File  |  1993-04-20  |  28KB  |  1,228 lines
  1. % BibTeX `apalike' bibliography style (24-Jan-88 version)
  2. % Adapted from the `alpha' style, version 0.99a; for BibTeX version 0.99a.
  3. % Copyright (C) 1988, all rights reserved.
  4. % Copying of this file is allowed, provided that if you make any changes at all
  5. % you name it something other than `apalike.bst'.
  6. % This restriction helps ensure that all copies are identical.
  7. % Differences between this style and `alpha' are generally heralded by a `%'.
  8. % The file btxbst.doc has the documentation for alpha.bst.
  9. %
  10. % This style should be used with the `apalike' LaTeX style (apalike.sty).
  11. % \cite's come out like "(Jones, 1986)" in the text but there are no labels
  12. % in the bibliography, and something like "(1986)" comes out immediately
  13. % after the author.  Author (and editor) names appear as last name, comma,
  14. % initials.  A `year' field is required for every entry, and so is either
  15. % an author (or in some cases, an editor) field or a key field.
  16. %
  17. % Editorial note:
  18. % Many journals require a style like `apalike', but I strongly, strongly,
  19. % strongly recommend that you not use it if you have a choice---use something
  20. % like `plain' instead.  Mary-Claire van Leunen (A Handbook for Scholars,
  21. % Knopf, 1979) argues convincingly that a style like `plain' encourages better
  22. % writing than one like `apalike'.  Furthermore the strongest arguments for
  23. % using an author-date style like `apalike'---that it's "the most practical"
  24. % (The Chicago Manual of Style, University of Chicago Press, thirteenth
  25. % edition, 1982, pages 400--401)---fall flat on their face with the new
  26. % computer-typesetting technology.  For instance page 401 anachronistically
  27. % states "The chief disadvantage of [a style like `plain'] is that additions
  28. % or deletions cannot be made after the manuscript is typed without changing
  29. % numbers in both text references and list."  LaTeX sidesteps the disadvantage.
  30. %
  31. % History:
  32. %   15-sep-86   (SK,OP) Original version, by Susan King and Oren Patashnik.
  33. %   10-nov-86   (OP)    Truncated the sort.key$ string to the correct length
  34. %                       in bib.sort.order to eliminate error message.
  35. %   24-jan-88   (OP)    Updated for BibTeX version 0.99a, from alpha.bst 0.99a;
  36. %                       apalike now sorts by author, then year, then title;
  37. %                       THIS `apalike' VERSION DOES NOT WORK WITH BIBTEX 0.98i.
  38. %   15-feb-92   (MW)    Updated for use with `bibgerman.sty': things like "and"
  39. %                       change with the language. Switch the language using the
  40. %                       language field: 
  41. %                          language = "german" | "USenglish" | "english"
  42. %                       Then a `\selectlanguage{...}' command will be pushed just
  43. %                       before the `\bibitem...' command for the entry in work.
  44.  
  45. ENTRY
  46.   { address
  47.     author
  48.     booktitle
  49.     chapter
  50.     citelabel
  51.     edition
  52.     editor
  53.     howpublished
  54.     institution
  55.     journal
  56.     key
  57.     language
  58. %    month              not used in apalike
  59.     note
  60.     number
  61.     organization
  62.     pages
  63.     publisher
  64.     school
  65.     series
  66.     title
  67.     type
  68.     volume
  69.     year
  70.   }
  71.   {}
  72.   { label extra.label sort.label }
  73.  
  74. INTEGERS { output.state before.all mid.sentence after.sentence after.block before.title }
  75.  
  76. STRINGS { s t language.state language.temp }
  77.  
  78. FUNCTION {init.state.consts}
  79. { #0 'before.all :=
  80.   #1 'mid.sentence :=
  81.   #2 'after.sentence :=
  82.   #3 'after.block :=
  83.   #4 'before.title :=
  84.   "nostate" 'language.state :=
  85. }
  86.  
  87. FUNCTION {language.state.test}
  88. { 
  89.   'language.temp :=
  90.   language.temp language.state =
  91.     { #1 }
  92.     { #0 }
  93.   if$
  94. }
  95.  
  96. FUNCTION {output.nonnull}
  97. { 's :=
  98.   output.state mid.sentence =
  99.     { ", " * write$ }
  100.     { output.state after.block =
  101.         { add.period$ write$
  102.           newline$
  103.           "\newblock " write$
  104.         }
  105.         { output.state before.all =
  106.             'write$
  107.             % next if is for use with `new' FUNCTION {after.authors}
  108.             { output.state before.title =
  109.                 { ": " * write$ }
  110.                 { add.period$ " " * write$ }
  111.               if$
  112.             }
  113.           if$
  114.         }
  115.       if$
  116.       mid.sentence 'output.state :=
  117.     }
  118.   if$
  119.   s
  120. }
  121.  
  122. FUNCTION {output}
  123. { duplicate$ empty$
  124.     'pop$
  125.     'output.nonnull
  126.   if$
  127. }
  128.  
  129. FUNCTION {output.check}
  130. { 't :=
  131.   duplicate$ empty$
  132.     { pop$ "empty " t * " in " * cite$ * warning$ }
  133.     'output.nonnull
  134.   if$
  135. }
  136.  
  137. %                                       apalike needs this function because
  138. %                                       the year has special punctuation;
  139. %                                       apalike ignores the month
  140. FUNCTION {output.year.check}
  141. { year empty$
  142.     { "empty year in " cite$ * warning$ }
  143.     { write$
  144.       "\ (" year * extra.label * ")" *
  145.       mid.sentence 'output.state :=
  146.     }
  147.   if$
  148. }
  149.  
  150. FUNCTION {output.bibitem}
  151. { newline$
  152.   language empty$
  153.     'skip$
  154.     { language.state language =
  155.         'skip$
  156.         { "\selectlanguage{\" language * "}" * write$
  157.           newline$
  158.         }
  159.       if$
  160.       language 'language.state :=
  161.     }
  162.   if$
  163.   "\bibitem[" write$
  164.   label write$
  165.   "]{" write$
  166.   cite$ write$
  167.   "}" write$
  168.   newline$
  169.   ""
  170.   before.all 'output.state :=
  171. }
  172.  
  173. FUNCTION {fin.entry}
  174. { add.period$
  175.   write$
  176.   newline$
  177. }
  178.  
  179. FUNCTION {new.block}
  180. { output.state before.all =
  181.     'skip$
  182.     { after.block 'output.state := }
  183.   if$
  184. }
  185.  
  186. % new one -> sets what is specified in FUNCTION {output.nonnull}
  187. % if `before.title 'output.state = ... if$' is true
  188. % FUNCTION {after.authors}
  189. % { output.state before.all =
  190. %     'skip$
  191. %     { before.title 'output.state := }
  192. %   if$
  193. % }
  194.  
  195. % original -> sets points after (year) and before title
  196. FUNCTION {after.authors}
  197. { new.block }
  198.  
  199. FUNCTION {new.sentence}
  200. { output.state after.block =
  201.     'skip$
  202.     { output.state before.all =
  203.         'skip$
  204.         { after.sentence 'output.state := }
  205.       if$
  206.     }
  207.   if$
  208. }
  209.  
  210. FUNCTION {not}
  211. {   { #0 }
  212.     { #1 }
  213.   if$
  214. }
  215.  
  216. FUNCTION {and}
  217. {   'skip$
  218.     { pop$ #0 }
  219.   if$
  220. }
  221.  
  222. FUNCTION {or}
  223. {   { pop$ #1 }
  224.     'skip$
  225.   if$
  226. }
  227.  
  228. FUNCTION {new.block.checkb}
  229. { empty$
  230.   swap$ empty$
  231.   and
  232.     'skip$
  233.     'new.block
  234.   if$
  235. }
  236.  
  237. FUNCTION {field.or.null}
  238. { duplicate$ empty$
  239.     { pop$ "" }
  240.     'skip$
  241.   if$
  242. }
  243.  
  244. FUNCTION {emphasize}
  245. { duplicate$ empty$
  246.     { pop$ "" }
  247.     { "{\em " swap$ * "\/}" * }
  248.   if$
  249. }
  250.  
  251. FUNCTION {smallcaps}
  252. { duplicate$ empty$
  253.     { pop$ "" }
  254.     { "{\sc " swap$ * "}" * }
  255.   if$
  256. }
  257.  
  258. INTEGERS { nameptr namesleft numnames }
  259.  
  260. FUNCTION {format.names}
  261. { 's :=
  262.   #1 'nameptr :=
  263.   s num.names$ 'numnames :=
  264.   numnames 'namesleft :=
  265.     { namesleft #0 > }
  266.     { nameptr #1 >
  267.         { s nameptr "{f.~}{vv~}{ll}{, jj}" format.name$ 't :=   % last name first
  268.           namesleft #1 >
  269.             { ", " * t smallcaps * }
  270.             { numnames #2 >
  271.                 { "english" language.state.test
  272.                   "USenglish" language.state.test
  273.                   or
  274.                      {"," * }
  275.                      'skip$
  276.                   if$
  277.                 }
  278.                 'skip$
  279.               if$
  280.               t "others" =
  281.                 { " \btxetalshort{.}" * }
  282.                 { " \btxandshort{.}\ " * t smallcaps * }
  283.               if$
  284.             }
  285.           if$
  286.         }
  287.         { s nameptr "{ll}{, jj}{, ff}{~vv}" format.name$ smallcaps } % last name first
  288.       if$
  289.       nameptr #1 + 'nameptr :=
  290.       namesleft #1 - 'namesleft :=
  291.     }
  292.   while$
  293. }
  294.  
  295. FUNCTION {format.authors}
  296. { author empty$
  297.     { "" }
  298.     { author format.names }
  299.   if$
  300. }
  301.  
  302. FUNCTION {format.key}                   % this function is just for apalike
  303. { empty$
  304.     { key field.or.null 
  305.       duplicate$ empty$
  306.          'skip$
  307.          { smallcaps }
  308.       if$
  309.     }
  310.     { "" }
  311.   if$
  312. }
  313.  
  314. FUNCTION {format.editors}
  315. { editor empty$
  316.     { "" }
  317.     { editor format.names
  318.       editor num.names$ #1 >
  319.         { ", \btxeditorsshort{.}" * }
  320.         { ", \btxeditorshort{.}" * }
  321.       if$
  322.     }
  323.   if$
  324. }
  325.  
  326. FUNCTION {format.title}
  327. { title empty$
  328.     { "" }
  329.     { "english" language.state.test
  330.       "USenglish" language.state.test
  331.       or
  332.         { title "t" change.case$ emphasize }
  333.         { title emphasize }
  334.       if$
  335.     }
  336.   if$
  337. }
  338.  
  339. FUNCTION {n.dashify}
  340. { 't :=
  341.   ""
  342.     { t empty$ not }
  343.     { t #1 #1 substring$ "-" =
  344.         { t #1 #2 substring$ "--" = not
  345.             { "--" *
  346.               t #2 global.max$ substring$ 't :=
  347.             }
  348.             {   { t #1 #1 substring$ "-" = }
  349.                 { "-" *
  350.                   t #2 global.max$ substring$ 't :=
  351.                 }
  352.               while$
  353.             }
  354.           if$
  355.         }
  356.         { t #1 #1 substring$ *
  357.           t #2 global.max$ substring$ 't :=
  358.         }
  359.       if$
  360.     }
  361.   while$
  362. }
  363.  
  364. FUNCTION {format.btitle}
  365. { title emphasize
  366. }
  367.  
  368. FUNCTION {tie.or.space.connect}
  369. { duplicate$ text.length$ #3 <
  370.     { "~" }
  371.     { "\ " }
  372.   if$
  373.   swap$ * *
  374. }
  375.  
  376. FUNCTION {either.or.check}
  377. { empty$
  378.     'pop$
  379.     { "can't use both " swap$ * " fields in " * cite$ * warning$ }
  380.   if$
  381. }
  382.  
  383. FUNCTION {format.bvolume}
  384. { volume empty$
  385.     { "" }
  386.     { output.state after.block =
  387.         { "\Btxvolumeshort{.}" }
  388.         { "\btxvolumeshort{.}" }
  389.       if$
  390.       volume tie.or.space.connect
  391.       series empty$
  392.         'skip$
  393.         { " \btxofseriesshort{.}\ " * series emphasize * }
  394.       if$
  395.       "volume and number" number either.or.check
  396.     }
  397.   if$
  398. }
  399.  
  400. FUNCTION {format.number.series}
  401. { volume empty$
  402.     { number empty$
  403.         { series field.or.null }
  404.         { output.state mid.sentence =
  405.             { "\btxnumbershort{.}" }
  406.             { "\Btxnumbershort{.}" }
  407.           if$
  408.           number tie.or.space.connect
  409.           series empty$
  410.             { "there's a number but no series in " cite$ * warning$ }
  411.             { " \btxinseriesshort{.}\ " * series emphasize * }
  412.           if$
  413.         }
  414.       if$
  415.     }
  416.     { "" }
  417.   if$
  418. }
  419.  
  420. FUNCTION {format.edition}
  421. { edition empty$
  422.     { "" }
  423.     { "english" language.state.test
  424.       "USenglish" language.state.test
  425.       or
  426.         { output.state mid.sentence =
  427.             { edition "l" change.case$ " \btxeditionshort{.}" * }
  428.             { edition "t" change.case$ " \btxeditionshort{.}" * }
  429.           if$
  430.         }
  431.         { edition " \btxeditionshort{.}" * }
  432.       if$
  433.     }
  434.   if$
  435. }
  436.  
  437. INTEGERS { multiresult }
  438.  
  439. FUNCTION {multi.page.check}
  440. { 't :=
  441.   #0 'multiresult :=
  442.     { multiresult not
  443.       t empty$ not
  444.       and
  445.     }
  446.     { t #1 #1 substring$
  447.       duplicate$ "-" =
  448.       swap$ duplicate$ "," =
  449.       swap$ "+" =
  450.       or or
  451.         { #1 'multiresult := }
  452.         { t #2 global.max$ substring$ 't := }
  453.       if$
  454.     }
  455.   while$
  456.   multiresult
  457. }
  458.  
  459. FUNCTION {format.pages}
  460. { pages empty$
  461.     { "" }
  462.     { pages multi.page.check
  463.         { "\btxpagesshort{.}" pages n.dashify tie.or.space.connect }
  464.         { "\btxpageshort{.}" pages tie.or.space.connect }
  465.       if$
  466.     }
  467.   if$
  468. }
  469.  
  470. FUNCTION {format.vol.num.pages}
  471. { volume field.or.null
  472.   number empty$
  473.     'skip$
  474.     { "(" number * ")" * *
  475.       volume empty$
  476.         { "there's a number but no volume in " cite$ * warning$ }
  477.         'skip$
  478.       if$
  479.     }
  480.   if$
  481.   pages empty$
  482.     'skip$
  483.     { duplicate$ empty$
  484.         { pop$ format.pages }
  485.         { ":" * pages n.dashify * }
  486.       if$
  487.     }
  488.   if$
  489. }
  490.  
  491. FUNCTION {format.chapter.pages}
  492. { chapter empty$
  493.     'format.pages
  494.     { type empty$
  495.         { "\btxchaptershort{.}" }
  496.         { "english" language.state.test
  497.           "USenglish" language.state.test
  498.           or
  499.              { type "l" change.case$ }
  500.              { type }
  501.           if$
  502.         }
  503.       if$
  504.       chapter tie.or.space.connect
  505.       pages empty$
  506.         'skip$
  507.         { ", " * format.pages * }
  508.       if$
  509.     }
  510.   if$
  511. }
  512.  
  513. FUNCTION {format.in.ed.booktitle}
  514. { booktitle empty$
  515.     { "" }
  516.     { editor empty$
  517.         { "\Btxinshort{.}\ " booktitle emphasize * }
  518.         { "\Btxinshort{.}\ " format.editors * ": " * booktitle emphasize * }
  519.       if$
  520.     }
  521.   if$
  522. }
  523.  
  524. FUNCTION {format.thesis.type}
  525. { type empty$
  526.     'skip$
  527.     { pop$
  528.       "english" language.state.test
  529.       "USenglish" language.state.test
  530.       or
  531.         { type "t" change.case$ }
  532.         { type }
  533.       if$
  534.     }
  535.   if$
  536. }
  537.  
  538. FUNCTION {format.tr.number}
  539. { type empty$
  540.     { "\Btxtechreplong{.}" }
  541.     'type
  542.   if$
  543.   number empty$
  544.     { "english" language.state.test
  545.       "USenglish" language.state.test
  546.       or
  547.         { type empty$
  548.             { pop$ "\btxtechreplong{.}" }
  549.             { "t" change.case$ }
  550.           if$
  551.         }
  552.         'skip$
  553.       if$
  554.     }
  555.     { number tie.or.space.connect }
  556.   if$
  557. }
  558.  
  559. FUNCTION {format.article.crossref}
  560. { "In"                                                  % this is for apalike
  561.   " \cite{" * crossref * "}" *
  562. }
  563.  
  564. FUNCTION {format.book.crossref}
  565. { volume empty$
  566.     { "empty volume in " cite$ * "'s crossref of " * crossref * warning$
  567.       "\Btxinshort{.}\ "
  568.     }
  569.     { "\Btxvolumeshort{.}" volume tie.or.space.connect
  570.       " \btxofseriesshort{.}\ " * 
  571.     }
  572.   if$
  573.   "\cite{" * crossref * "}" *                           % this is for apalike
  574. }
  575.  
  576. FUNCTION {format.incoll.inproc.crossref}
  577. { "\Btxinshort{.}\ "                                                  % this is for apalike
  578.   "\cite{" * crossref * "}" *
  579. }
  580.  
  581. FUNCTION {article}
  582. { output.bibitem
  583.   format.authors "author" output.check
  584.   author format.key output                              % special for
  585.   output.year.check                                     % apalike
  586.   after.authors
  587.   format.title "title" output.check
  588.   new.block
  589.   crossref missing$
  590.     { journal
  591.       title missing$
  592.         { emphasize }
  593.         'skip$
  594.       if$
  595.       "journal" output.check 
  596.       format.vol.num.pages output
  597.     }
  598.     { format.article.crossref output.nonnull
  599.       format.pages output
  600.     }
  601.   if$
  602.   new.block
  603.   note output
  604.   fin.entry
  605. }
  606.  
  607. FUNCTION {book}
  608. { output.bibitem
  609.   author empty$
  610.     { format.editors "author and editor" output.check
  611.       editor format.key output
  612.     }
  613.     { format.authors output.nonnull
  614.       crossref missing$
  615.         { "author and editor" editor either.or.check }
  616.         'skip$
  617.       if$
  618.     }
  619.   if$
  620.   output.year.check                             % special for apalike
  621.   after.authors
  622.   format.btitle "title" output.check
  623.   crossref missing$
  624.     { format.bvolume output
  625.       new.block
  626.       format.number.series output
  627.       new.sentence
  628.       publisher "publisher" output.check
  629.       address output
  630.     }
  631.     { new.block
  632.       format.book.crossref output.nonnull
  633.     }
  634.   if$
  635.   format.edition output
  636.   new.block
  637.   note output
  638.   fin.entry
  639. }
  640.  
  641. FUNCTION {booklet}
  642. { output.bibitem
  643.   format.authors output
  644.   author format.key output                              % special for
  645.   output.year.check                                     % apalike
  646.   after.authors
  647.   format.title "title" output.check
  648.   new.block
  649.   howpublished output
  650.   address output
  651.   new.block
  652.   note output
  653.   fin.entry
  654. }
  655.  
  656. FUNCTION {inbook}
  657. { output.bibitem
  658.   author empty$
  659.     { format.editors "author and editor" output.check
  660.       editor format.key output
  661.     }
  662.     { format.authors output.nonnull
  663.       crossref missing$
  664.         { "author and editor" editor either.or.check }
  665.         'skip$
  666.       if$
  667.     }
  668.   if$
  669.   output.year.check                             % special for apalike
  670.   after.authors
  671.   format.btitle "title" output.check
  672.   crossref missing$
  673.     { format.bvolume output
  674.       format.chapter.pages "chapter and pages" output.check
  675.       new.block
  676.       format.number.series output
  677.       new.sentence
  678.       publisher "publisher" output.check
  679.       address output
  680.     }
  681.     { format.chapter.pages "chapter and pages" output.check
  682.       new.block
  683.       format.book.crossref output.nonnull
  684.     }
  685.   if$
  686.   format.edition output
  687.   new.block
  688.   note output
  689.   fin.entry
  690. }
  691.  
  692. FUNCTION {incollection}
  693. { output.bibitem
  694.   format.authors "author" output.check
  695.   author format.key output                              % special for
  696.   output.year.check                                     % apalike
  697.   after.authors
  698.   format.title "title" output.check
  699.   new.block
  700.   crossref missing$
  701.     { format.in.ed.booktitle "booktitle" output.check
  702.       format.bvolume output
  703.       format.number.series output
  704.       format.chapter.pages output
  705.       new.sentence
  706.       publisher "publisher" output.check
  707.       address output
  708.       format.edition output
  709.     }
  710.     { format.incoll.inproc.crossref output.nonnull
  711.       format.chapter.pages output
  712.     }
  713.   if$
  714.   new.block
  715.   note output
  716.   fin.entry
  717. }
  718.  
  719. FUNCTION {inproceedings}
  720. { output.bibitem
  721.   format.authors "author" output.check
  722.   author format.key output                              % special for
  723.   output.year.check                                     % apalike
  724.   after.authors
  725.   format.title "title" output.check
  726.   new.block
  727.   crossref missing$
  728.     { format.in.ed.booktitle "booktitle" output.check
  729.       format.bvolume output
  730.       format.number.series output
  731.       format.pages output
  732.       address output                                    % for apalike
  733.       new.sentence                                      % there's no year
  734.       organization output                               % here so things
  735.       publisher output                                  % are simpler
  736.     }
  737.     { format.incoll.inproc.crossref output.nonnull
  738.       format.pages output
  739.     }
  740.   if$
  741.   new.block
  742.   note output
  743.   fin.entry
  744. }
  745.  
  746. FUNCTION {conference} { inproceedings }
  747.  
  748. FUNCTION {manual}
  749. { output.bibitem
  750.   format.authors output
  751.   author format.key output                              % special for
  752.   output.year.check                                     % apalike
  753.   after.authors
  754.   format.btitle "title" output.check
  755.   organization address new.block.checkb
  756.   organization output
  757.   address output
  758.   format.edition output
  759.   new.block
  760.   note output
  761.   fin.entry
  762. }
  763.  
  764. FUNCTION {mastersthesis}
  765. { output.bibitem
  766.   format.authors "author" output.check
  767.   author format.key output                              % special for
  768.   output.year.check                                     % apalike
  769.   after.authors
  770.   format.title "title" output.check
  771.   new.block
  772.   "\btxmastthesis{.}" format.thesis.type output.nonnull
  773.   school "school" output.check
  774.   address output
  775.   new.block
  776.   note output
  777.   fin.entry
  778. }
  779.  
  780. FUNCTION {misc}
  781. { output.bibitem
  782.   format.authors output
  783.   author format.key output                              % special for
  784.   output.year.check                                     % apalike
  785.   after.authors
  786.   format.title output
  787.   new.block
  788.   howpublished output
  789.   new.block
  790.   note output
  791.   fin.entry
  792. }
  793.  
  794. FUNCTION {phdthesis}
  795. { output.bibitem
  796.   format.authors "author" output.check
  797.   author format.key output                              % special for
  798.   output.year.check                                     % apalike
  799.   after.authors
  800.   format.btitle "title" output.check
  801.   new.block
  802.   "\btxphdthesis{.}" format.thesis.type output.nonnull
  803.   school "school" output.check
  804.   address output
  805.   new.block
  806.   note output
  807.   fin.entry
  808. }
  809.  
  810. FUNCTION {proceedings}
  811. { output.bibitem
  812.   format.editors output
  813.   editor format.key output                              % special for
  814.   output.year.check                                     % apalike
  815.   after.authors
  816.   format.btitle "title" output.check
  817.   format.bvolume output
  818.   format.number.series output
  819.   address output                                % for apalike
  820.   new.sentence                                  % we always output
  821.   organization output                           % a nonempty organization
  822.   publisher output                              % here
  823.   new.block
  824.   note output
  825.   fin.entry
  826. }
  827.  
  828. FUNCTION {techreport}
  829. { output.bibitem
  830.   format.authors "author" output.check
  831.   author format.key output                              % special for
  832.   output.year.check                                     % apalike
  833.   after.authors
  834.   format.title "title" output.check
  835.   new.block
  836.   format.tr.number output.nonnull
  837.   institution "institution" output.check
  838.   address output
  839.   new.block
  840.   note output
  841.   fin.entry
  842. }
  843.  
  844. FUNCTION {unpublished}
  845. { output.bibitem
  846.   format.authors "author" output.check
  847.   author format.key output                              % special for
  848.   output.year.check                                     % apalike
  849.   after.authors
  850.   format.title "title" output.check
  851.   new.block
  852.   note "note" output.check
  853.   fin.entry
  854. }
  855.  
  856. FUNCTION {default.type} { misc }
  857.  
  858. MACRO {jan} {"\btxmonjanshort{.}"}
  859.  
  860. MACRO {feb} {"\btxmonfebshort{.}"}
  861.  
  862. MACRO {mar} {"\btxmonmarshort{.}"}
  863.  
  864. MACRO {apr} {"\btxmonaprshort{.}"}
  865.  
  866. MACRO {may} {"\btxmonmayshort{.}"}
  867.  
  868. MACRO {jun} {"\btxmonjunshort{.}"}
  869.  
  870. MACRO {jul} {"\btxmonjulshort{.}"}
  871.  
  872. MACRO {aug} {"\btxmonaugshort{.}"}
  873.  
  874. MACRO {sep} {"\btxmonsepshort{.}"}
  875.  
  876. MACRO {oct} {"\btxmonoctshort{.}"}
  877.  
  878. MACRO {nov} {"\btxmonnovshort{.}"}
  879.  
  880. MACRO {dec} {"\btxmondecshort{.}"}
  881.  
  882. MACRO {acmcs} {"ACM Computing Surveys"}
  883.  
  884. MACRO {acta} {"Acta Informatica"}
  885.  
  886. MACRO {cacm} {"Communications of the ACM"}
  887.  
  888. MACRO {ibmjrd} {"IBM Journal of Research and Development"}
  889.  
  890. MACRO {ibmsj} {"IBM Systems Journal"}
  891.  
  892. MACRO {ieeese} {"IEEE Transactions on Software Engineering"}
  893.  
  894. MACRO {ieeetc} {"IEEE Transactions on Computers"}
  895.  
  896. MACRO {ieeetcad}
  897.  {"IEEE Transactions on Computer-Aided Design of Integrated Circuits"}
  898.  
  899. MACRO {ipl} {"Information Processing Letters"}
  900.  
  901. MACRO {jacm} {"Journal of the ACM"}
  902.  
  903. MACRO {jcss} {"Journal of Computer and System Sciences"}
  904.  
  905. MACRO {scp} {"Science of Computer Programming"}
  906.  
  907. MACRO {sicomp} {"SIAM Journal on Computing"}
  908.  
  909. MACRO {tocs} {"ACM Transactions on Computer Systems"}
  910.  
  911. MACRO {tods} {"ACM Transactions on Database Systems"}
  912.  
  913. MACRO {tog} {"ACM Transactions on Graphics"}
  914.  
  915. MACRO {toms} {"ACM Transactions on Mathematical Software"}
  916.  
  917. MACRO {toois} {"ACM Transactions on Office Information Systems"}
  918.  
  919. MACRO {toplas} {"ACM Transactions on Programming Languages and Systems"}
  920.  
  921. MACRO {tcs} {"Theoretical Computer Science"}
  922.  
  923. READ
  924.  
  925. FUNCTION {sortify}
  926. { purify$
  927.   "l" change.case$
  928. }
  929.  
  930. INTEGERS { len }
  931.  
  932. FUNCTION {chop.word}
  933. { 's :=
  934.   'len :=
  935.   s #1 len substring$ =
  936.     { s len #1 + global.max$ substring$ }
  937.     's
  938.   if$
  939. }
  940.  
  941. %                       There are three apalike cases: one person (Jones),
  942. %                       two (Jones and de~Bruijn), and more (Jones et~al.).
  943. %                       This function is much like format.crossref.editors.
  944. %
  945. FUNCTION {format.lab.names}
  946. { 's :=
  947.   s #1 "{vv~}{ll}" format.name$ smallcaps
  948.   s num.names$ duplicate$
  949.   #2 >
  950.     { pop$ " \btxetalshort{.}" * }
  951.     { #2 <
  952.         'skip$
  953.         { s #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
  954.             { " \btxetalshort{.}" * }
  955.             { " \btxandshort{.}\ " * s #2 "{vv~}{ll}" format.name$ smallcaps * }
  956.           if$
  957.         }
  958.       if$
  959.     }
  960.   if$
  961. }
  962.  
  963. FUNCTION {author.key.label}
  964. { citelabel empty$
  965.     { author empty$
  966.         { key empty$
  967.             { cite$ #1 #3 substring$ }
  968.             'key                                    % apalike uses the whole key
  969.           if$
  970.         }
  971.         { author format.lab.names }
  972.       if$
  973.     }
  974.     { citelabel smallcaps }
  975.   if$
  976. }
  977.  
  978. FUNCTION {author.editor.key.label}
  979. { citelabel empty$
  980.     { author empty$
  981.         { editor empty$
  982.             { key empty$
  983.                 { cite$ #1 #3 substring$ }
  984.                 'key                                % apalike uses the whole key
  985.               if$
  986.             }
  987.             { editor format.lab.names }
  988.           if$
  989.         }
  990.         { author format.lab.names }
  991.       if$
  992.     }
  993.     { citelabel smallcaps }
  994.   if$
  995. }
  996.  
  997. FUNCTION {editor.key.label}
  998. { citelabel empty$
  999.     { editor empty$
  1000.        { key empty$
  1001.            { cite$ #1 #3 substring$ }
  1002.            'key                    % apalike uses the whole key, no organization
  1003.          if$
  1004.        }
  1005.        { editor format.lab.names }
  1006.      if$
  1007.     }
  1008.     { citelabel smallcaps }
  1009.   if$
  1010. }
  1011.  
  1012. FUNCTION {calc.label}
  1013. { type$ "book" =
  1014.   type$ "inbook" =
  1015.   or
  1016.     'author.editor.key.label
  1017.     { type$ "proceedings" =
  1018.         'editor.key.label                       % apalike ignores organization
  1019.         'author.key.label                       % for labeling and sorting
  1020.       if$
  1021.     }
  1022.   if$
  1023.   year empty$
  1024.     {""}
  1025. %    {", "} % original
  1026.      {" "}  % geändert für Andreas Diplomarbeit 30/04/92
  1027.   if$                                                   % these three lines are
  1028.   *                                                     % for apalike, which
  1029. %  year field.or.null purify$ #-1 #4 substring$          % uses all four digits % original
  1030.   year field.or.null % geändert für Andreas Diplomarbeit 19/09/92 um Jahresangaben wie 1988a, 1988b zu ermöglichen
  1031.   *
  1032.   'label :=
  1033. }
  1034.  
  1035. FUNCTION {sort.format.names}
  1036. { 's :=
  1037.   #1 'nameptr :=
  1038.   ""
  1039.   s num.names$ 'numnames :=
  1040.   numnames 'namesleft :=
  1041.     { namesleft #0 > }
  1042.     { nameptr #1 >
  1043.         { "   " * }
  1044.         'skip$
  1045.       if$                                               % apalike uses initials
  1046.       s nameptr "{ll{ }}{ ff{ }}{vv{ } }{  jj{ }}" format.name$ 't := % <= here
  1047.       nameptr numnames = t "others" = and
  1048.         { "et al" * }
  1049.         { t sortify * }
  1050.       if$
  1051.       nameptr #1 + 'nameptr :=
  1052.       namesleft #1 - 'namesleft :=
  1053.     }
  1054.   while$
  1055. }
  1056.  
  1057. FUNCTION {sort.format.title}
  1058. { 't :=
  1059.   "A " #2
  1060.     "An " #3
  1061.       "The " #4 t chop.word
  1062.     chop.word
  1063.   chop.word
  1064.   sortify
  1065.   #1 global.max$ substring$
  1066. }
  1067.  
  1068. FUNCTION {author.sort}
  1069. { author empty$
  1070.     { key empty$
  1071.         { "to sort, need author or key in " cite$ * warning$
  1072.           ""
  1073.         }
  1074.         { key sortify }
  1075.       if$
  1076.     }
  1077.     { author sort.format.names }
  1078.   if$
  1079. }
  1080.  
  1081. FUNCTION {author.editor.sort}
  1082. { author empty$
  1083.     { editor empty$
  1084.         { key empty$
  1085.             { "to sort, need author, editor, or key in " cite$ * warning$
  1086.               ""
  1087.             }
  1088.             { key sortify }
  1089.           if$
  1090.         }
  1091.         { editor sort.format.names }
  1092.       if$
  1093.     }
  1094.     { author sort.format.names }
  1095.   if$
  1096. }
  1097.  
  1098. FUNCTION {editor.sort}
  1099. { editor empty$
  1100.     { key empty$
  1101.         { "to sort, need editor or key in " cite$ * warning$
  1102.           ""
  1103.         }
  1104.         { key sortify }
  1105.       if$
  1106.     }
  1107.     { editor sort.format.names }
  1108.   if$
  1109. }
  1110.  
  1111. %                       apalike uses two sorting passes; the first one sets the
  1112. %                       labels so that the `a's, `b's, etc. can be computed;
  1113. %                       the second pass puts the references in "correct" order.
  1114. %                       The presort function is for the first pass. It computes
  1115. %                       label, sort.label, and title, and then concatenates.
  1116. FUNCTION {presort}
  1117. { calc.label
  1118.   label sortify
  1119.   "    "
  1120.   *
  1121.   type$ "book" =
  1122.   type$ "inbook" =
  1123.   or
  1124.     'author.editor.sort
  1125.     { type$ "proceedings" =
  1126.         'editor.sort
  1127.         'author.sort
  1128.       if$
  1129.     }
  1130.   if$
  1131.   #1 entry.max$ substring$      % for
  1132.   'sort.label :=                % apalike
  1133.   sort.label                    % style
  1134.   *
  1135.   "    "
  1136.   *
  1137.   title field.or.null
  1138.   sort.format.title
  1139.   *
  1140.   #1 entry.max$ substring$
  1141.   'sort.key$ :=
  1142. }
  1143.  
  1144. ITERATE {presort}
  1145.  
  1146. SORT            % by label, sort.label, title---for final label calculation
  1147.  
  1148. STRINGS { last.label next.extra }       % apalike labels are only for the text;
  1149.  
  1150. INTEGERS { last.extra.num }             % there are none in the bibliography
  1151.  
  1152. FUNCTION {initialize.extra.label.stuff} % and hence there is no `longest.label'
  1153. { #0 int.to.chr$ 'last.label :=
  1154.   "" 'next.extra :=
  1155.   #0 'last.extra.num :=
  1156. }
  1157.  
  1158. FUNCTION {forward.pass}
  1159. { last.label label =
  1160.     { last.extra.num #1 + 'last.extra.num :=
  1161.       last.extra.num int.to.chr$ 'extra.label :=
  1162.     }
  1163.     { "a" chr.to.int$ 'last.extra.num :=
  1164.       "" 'extra.label :=
  1165.       label 'last.label :=
  1166.     }
  1167.   if$
  1168. }
  1169.  
  1170. FUNCTION {reverse.pass}
  1171. { next.extra "b" =
  1172.     { "a" 'extra.label := }
  1173.     'skip$
  1174.   if$
  1175.   label extra.label * 'label :=
  1176.   extra.label 'next.extra :=
  1177. }
  1178.  
  1179. EXECUTE {initialize.extra.label.stuff}
  1180.  
  1181. ITERATE {forward.pass}
  1182.  
  1183. REVERSE {reverse.pass}
  1184.  
  1185. %                               Now that the label is right we sort for real,
  1186. %                               on sort.label then year then title.  This is
  1187. %                               for the second sorting pass.
  1188. FUNCTION {bib.sort.order}
  1189. { sort.label
  1190.   "    "
  1191.   *
  1192.   year field.or.null sortify
  1193.   *
  1194.   "    "
  1195.   *
  1196.   title field.or.null
  1197.   sort.format.title
  1198.   *
  1199.   #1 entry.max$ substring$
  1200.   'sort.key$ :=
  1201. }
  1202.  
  1203. ITERATE {bib.sort.order}
  1204.  
  1205. SORT            % by sort.label, year, title---giving final bibliography order
  1206.  
  1207. FUNCTION {begin.bib}
  1208. { preamble$ empty$                              % no \etalchar in apalike
  1209.     'skip$
  1210.     { preamble$ write$ newline$ }
  1211.   if$
  1212.   "\begin{thebibliography}{}" write$ newline$           % no labels in apalike
  1213. }
  1214.  
  1215. EXECUTE {begin.bib}
  1216.  
  1217. EXECUTE {init.state.consts}
  1218.  
  1219. ITERATE {call.type$}
  1220.  
  1221. FUNCTION {end.bib}
  1222. { newline$
  1223.   "\end{thebibliography}" write$ newline$
  1224. }
  1225.  
  1226. EXECUTE {end.bib}
  1227.  
  1228.